home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / demosrc / cfsource / ansicpfk.asm < prev    next >
Encoding:
Assembly Source File  |  1993-11-24  |  8.6 KB  |  190 lines
  1. .model tpascal
  2. .code
  3.         org 100h
  4.  
  5. Start:
  6.  
  7. public ansiproc
  8.  
  9. ansiproc PROC NEAR
  10.  
  11.          JMP anfang
  12.  
  13. count    dw 1727
  14. startadr dw 0
  15. toggle   db 0
  16. ansi     db 11,16,26,5,219,10,26,10,177,11,26,62,219,24,219,219,219
  17.          db 10,26,4,177,11,26,6,219,10,26,3,177,11,26,60,219
  18.          db 24,19,178,178,10,18,176,176,176,11,19,26,74,178,24,178
  19.          db 10,18,177,177,177,11,19,26,15,178,10,18,26,7,177,11
  20.          db 19,178,178,178,10,18,26,10,177,11,19,178,178,10,18,26
  21.          db 9,177,11,19,26,4,178,10,18,26,6,177,11,19,178,178
  22.          db 178,10,18,177,177,177,11,19,178,10,18,26,5,177,11,19
  23.          db 178,24,10,18,178,178,178,11,19,26,14,177,10,18,26,3
  24.          db 178,15,176,26,3,177,10,178,178,178,11,19,177,177,10,18
  25.          db 178,178,15,176,176,177,177,177,176,176,10,178,178,178,11,19
  26.          db 177,15,18,176,176,176,177,177,177,176,176,10,178,178,178,11
  27.          db 19,177,10,18,178,178,178,15,176,177,177,176,10,26,3,178
  28.          db 11,19,177,177,10,18,26,3,178,11,19,26,3,177,10,18
  29.          db 178,178,24,219,219,219,11,19,26,12,177,10,18,219,219,219
  30.          db 15,176,176,176,177,177,178,178,177,177,176,10,219,219,219,11
  31.          db 19,177,10,18,219,15,176,177,178,178,178,177,176,176,10,219
  32.          db 219,219,11,19,177,15,18,176,177,178,178,178,177,176,176,10
  33.          db 219,219,219,11,19,177,10,18,219,15,176,177,178,178,177,176
  34.          db 176,10,219,219,219,11,19,177,10,18,219,219,219,11,19,26
  35.          db 6,177,24,176,2,16,176,176,176,11,19,26,11,176,2,16
  36.          db 176,176,11,19,176,176,15,18,177,177,178,178,219,219,178,178
  37.          db 177,176,2,16,176,176,176,11,19,176,15,18,177,178,219,219
  38.          db 219,178,177,176,2,16,176,176,176,11,19,176,15,18,177,178
  39.          db 219,219,219,178,177,176,2,16,176,176,176,11,19,176,2,16
  40.          db 26,10,176,11,19,176,2,16,176,176,11,19,26,7,176,24
  41.          db 32,2,16,177,177,177,19,25,14,16,177,177,177,19,32,15
  42.          db 18,26,3,219,178,177,176,2,16,177,177,177,19,32,15,18
  43.          db 176,177,178,178,177,176,176,2,16,177,177,177,19,32,15,18
  44.          db 176,176,177,178,178,177,176,176,2,16,177,177,177,19,32,16
  45.          db 177,177,19,25,10,16,177,177,19,25,7,24,3,16,178,178
  46.          db 10,177,177,177,3,26,12,178,10,177,177,177,3,178,15,18
  47.          db 177,177,178,178,177,177,176,10,16,177,177,177,3,178,10,177
  48.          db 15,18,176,176,177,177,10,16,26,4,177,3,178,10,177,15
  49.          db 18,176,176,176,177,177,10,16,26,4,177,3,178,178,178,10
  50.          db 177,177,177,3,26,8,178,10,177,177,3,26,7,178,24,177
  51.          db 177,177,10,18,26,4,177,3,16,26,7,177,10,18,26,3
  52.          db 177,3,16,177,15,18,176,176,26,3,177,176,10,177,177,177
  53.          db 3,16,177,177,10,18,26,6,177,3,16,26,3,177,10,18
  54.          db 26,7,177,3,16,26,7,177,10,18,26,6,177,3,16,177
  55.          db 177,10,18,177,177,177,3,16,26,7,177,24,26,5,176,10
  56.          db 18,26,11,219,3,16,176,176,176,10,18,219,219,4,16,219
  57.          db 12,20,178,16,219,20,178,177,176,177,178,16,219,219,20,178
  58.          db 177,176,177,178,219,219,178,177,176,177,178,16,219,219,20,178
  59.          db 10,18,219,3,16,26,30,176,24,15,25,22,4,219,12,20
  60.          db 177,178,16,219,20,178,177,176,177,178,16,219,219,20,178,177
  61.          db 176,177,178,219,219,178,177,176,177,178,16,219,219,15,25,31
  62.          db 24,3,26,5,176,10,26,9,177,3,26,6,176,7,178,15
  63.          db 23,177,178,16,219,219,23,178,177,176,177,178,16,219,219,23
  64.          db 178,177,176,177,178,219,16,219,23,178,177,176,177,178,16,219
  65.          db 32,32,3,26,10,176,10,177,177,3,176,15,23,219,26,13
  66.          db 223,8,220,24,10,16,26,7,177,3,26,14,177,7,178,15
  67.          db 23,176,177,178,16,219,219,23,178,177,176,177,178,219,219,178
  68.          db 177,176,177,178,219,219,178,177,176,177,178,3,16,176,176,26
  69.          db 10,177,10,177,177,3,177,15,23,219,32,12,73,102,32,121
  70.          db 111,117,32,119,97,110,116,32,32,8,219,24,10,16,177,177
  71.          db 177,3,26,19,178,4,219,12,20,177,176,177,178,16,219,219
  72.          db 20,178,177,176,177,178,16,219,219,20,178,177,176,177,178,219
  73.          db 219,178,177,176,177,3,16,177,177,26,10,178,10,177,177,3
  74.          db 178,15,23,219,32,32,12,116,111,32,99,111,110,116,97,99
  75.          db 116,32,32,8,219,24,19,32,10,18,176,176,176,19,25,11
  76.          db 18,26,6,176,4,16,219,12,20,178,177,176,177,178,16,219
  77.          db 219,20,178,177,176,177,178,16,219,219,20,178,177,176,177,178
  78.          db 219,16,219,20,178,177,176,3,16,178,178,19,25,9,10,18
  79.          db 176,176,19,32,32,15,23,219,32,12,116,104,101,32,99,111
  80.          db 100,101,114,32,111,102,32,8,219,24,11,19,176,10,18,177
  81.          db 177,177,11,19,176,176,10,18,26,4,177,11,19,176,176,10
  82.          db 18,26,3,177,11,19,26,4,176,10,18,177,6,16,178,219
  83.          db 177,3,178,178,2,177,177,177,3,26,3,178,2,177,177,177
  84.          db 3,26,4,178,2,26,5,177,3,178,11,19,176,176,176,10
  85.          db 18,26,5,177,11,19,176,10,18,177,177,11,19,176,176,15
  86.          db 23,219,32,12,67,79,80,80,69,82,32,70,65,75,69,68
  87.          db 32,8,219,24,11,19,177,10,18,26,6,178,11,19,26,13
  88.          db 177,10,18,178,6,16,178,219,177,11,19,177,177,10,18,178
  89.          db 178,178,11,19,177,10,18,26,4,178,11,19,26,3,177,10
  90.          db 18,178,178,178,15,176,177,177,176,10,178,178,178,11,19,177
  91.          db 10,18,178,178,15,176,177,177,176,10,26,3,178,11,19,177
  92.          db 177,15,23,219,32,12,109,97,105,108,58,32,4,83,116,101
  93.          db 102,97,110,32,8,219,24,11,19,177,10,18,219,219,219,11
  94.          db 19,26,10,177,10,18,26,7,219,6,16,178,219,177,11,19
  95.          db 177,177,10,18,26,6,219,11,19,26,4,177,10,18,219,219
  96.          db 219,15,176,177,178,178,177,176,10,219,219,219,11,19,177,10
  97.          db 18,219,15,177,178,178,177,176,176,10,219,219,11,19,177,177
  98.          db 15,23,219,32,4,79,104,114,104,97,108,108,105,110,103,101
  99.          db 114,32,8,219,24,11,19,178,2,16,176,176,176,11,19,26
  100.          db 8,178,2,16,176,176,176,15,18,176,26,3,177,176,176,6
  101.          db 16,178,219,177,11,19,178,178,178,2,16,26,5,176,11,19
  102.          db 26,4,178,2,16,26,11,176,11,19,178,2,16,176,15,18
  103.          db 178,219,219,178,177,176,2,16,176,176,11,19,178,178,15,23
  104.          db 219,32,12,83,46,76,97,117,114,101,110,122,32,53,52,32
  105.          db 8,219,24,2,16,177,177,177,11,19,26,8,178,2,16,177
  106.          db 177,177,15,18,176,178,219,219,178,177,176,176,6,16,178,219
  107.          db 177,11,19,178,178,178,2,16,177,177,177,11,19,178,2,16
  108.          db 26,3,177,11,19,178,178,178,2,16,177,177,177,11,19,26
  109.          db 9,178,2,16,177,15,18,177,178,178,177,176,176,2,16,177
  110.          db 177,11,19,178,178,15,23,219,32,12,52,57,53,48,32,65
  111.          db 108,116,104,101,105,109,32,8,219,24,10,16,177,177,177,11
  112.          db 19,26,8,219,10,16,177,177,177,15,18,176,176,177,177,177
  113.          db 176,10,16,177,177,6,178,219,177,11,19,219,219,219,10,16
  114.          db 177,177,177,11,19,219,219,219,10,16,26,3,177,11,19,219
  115.          db 219,10,16,177,177,177,11,19,26,3,219,10,16,177,177,177
  116.          db 11,19,219,10,16,177,177,15,18,176,177,177,176,10,16,26
  117.          db 4,177,11,19,219,15,23,219,32,12,65,85,83,84,82,73
  118.          db 65,44,32,69,85,46,32,8,219,24,10,18,177,177,177,11
  119.          db 16,26,9,219,10,18,26,8,177,11,16,219,6,178,219,177
  120.          db 10,18,177,11,16,219,219,10,18,177,177,177,11,16,26,4
  121.          db 219,10,18,177,177,177,11,16,219,219,219,10,18,26,5,177
  122.          db 11,16,26,3,219,10,18,26,5,177,11,16,219,219,10,18
  123.          db 177,177,11,16,219,15,23,223,8,26,13,220,219,24,0
  124.  
  125. anfang: PUSH BP
  126.         MOV     BX,0B800h
  127.         MOV     ES,BX
  128.         MOV     DI,startadr
  129.         MOV     SI,offset ansi
  130.         MOV     DX,3DAh
  131.         MOV     BL,09
  132.         MOV     CX,count
  133.         CLD
  134.         XOR     AX,AX
  135. @2:     LODS    ansi
  136.         CMP     AL,1Bh
  137.         JNZ     @3
  138.         XOR     AH,80h
  139.         JMP     @10
  140. @3:     CMP     AL,10h
  141.         JNB     @4
  142.         AND     AH,0F0h
  143.         OR      AH,AL
  144.         JMP     @10
  145. @4:     CMP     AL,18h
  146.         JZ      @5
  147.         JNB     @6
  148.         SUB     AL,10h
  149.         SHL     AL,4
  150.         AND     AH,8Fh
  151.         OR      AH,AL
  152.         JMP     @10
  153. @5:     MOV     DI,startadr
  154.         ADD     DI,00A0h
  155.         MOV     startadr,DI
  156.         JMP     @10
  157. @6:     MOV     BP,CX
  158.         MOV     CX,0001
  159.         CMP     AL,19h
  160.         JNZ     @7
  161.         LODS    ansi
  162.         MOV     CL,AL
  163.         MOV     AL,20h
  164.         DEC     BP
  165.         JMP     @8
  166. @7:     CMP     AL,1Ah
  167.         JNZ     @9
  168.         LODS    ansi
  169.         DEC     BP
  170.         MOV     CL,AL
  171.         LODS    ansi
  172.         DEC     BP
  173. @8:     INC     CX
  174. @9:     REPZ
  175.         STOSW
  176.         MOV     CX,BP
  177. @10:    JCXZ    @11
  178.         LOOP    @2
  179. @11:    MOV     AH,02
  180.         MOV     BH,00
  181.         MOV     DX,1700h
  182.         INT     10h
  183.         POP BP
  184.         RET
  185.  
  186. ansiproc ENDP
  187.  
  188.  
  189. end start
  190.